home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Sample Code / Newton Sample Code 1.2 / Proto Templates / RecToggle-2 / recToggleDemo.text < prev    next >
Encoding:
Text File  |  1994-02-28  |  1.2 KB  |  62 lines  |  [TEXT/MPS ]
  1.  
  2. // ---- End Project Data ----
  3.  
  4.  
  5. // ---- File recToggleDemo.t ----
  6. myBase :=
  7.    {viewBounds: {top: 0, left: 0, right: 240, bottom: 336},
  8.     doModalDialog:
  9.       func(who)
  10.       begin
  11.          who:ModalDialog();
  12.       end,
  13.     viewFlags: 134217733,
  14.     viewFormat: nil,
  15.     declareSelf: 'base,
  16.     viewSetupFormScript:
  17.       func()
  18.       begin
  19.           local b := GetAppParams();
  20.           constant kMaxWidth := 240;
  21.           constant kMaxHeight := 336;
  22.           self.viewBounds := RelBounds(b.appAreaLeft, b.appAreaTop,
  23.               MIN(b.appAreaWidth, kMaxWidth), MIN(b.appAreaHeight, kMaxHeight));
  24.       end,
  25.     viewclass: 74,
  26.     debug: "myBase"
  27.    };
  28.  
  29. _view000 := /* child of myBase */ {title: "RecToggle Demo", _proto: protoTitle};
  30.  
  31.  
  32.  
  33. _view001 := /* child of myBase */ {_proto: protoStatusBar};
  34.  
  35. _view002 := /* child of _view001 */ {_proto: protoLargeClosebox};
  36.  
  37.  
  38.  
  39. _view003 := /* child of _view001 */ {_proto: protoRecToggle};
  40.  
  41.  
  42.  
  43.  
  44.  
  45. _view004 := /* child of myBase */
  46.    {viewFormat: 12625,
  47.     viewBounds: {top: 32, left: 15, right: -15, bottom: -32},
  48.     viewlinespacing: 20,
  49.     viewFlags: 33553921,
  50.     viewJustify: 240,
  51.     viewclass: 77
  52.    };
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60. // ---- Beginning of section for non used Layout files ----
  61.  
  62. // End of output